Carga de datos

Conversión de datos

datos_oij <- read_excel("estadisticaspoliciales2021.xls", 
    col_types = c("text", "skip", "date", 
        "skip", "text", "skip", "text", "text", 
        "skip", "text", "text", "skip"))
datos_oij <- mutate(datos_oij, Caso = c(1:38349))
datos_oij <-
  datos_oij %>%
  select(Fecha, Delito, Victima, Edad, Genero, Provincia, Canton, Caso) %>%
  mutate(Fecha = as.Date(Fecha, format = "%Y/%m/%d"))

Tabla DT

Gráfico barras 1

Gráfico barras 2

Gráfico barras 3

Gráfico barras 4